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ABSTRACT 


A version of the Graphics-oriented, Interactive, Finite 
element, Time-sharing System (GIFTS) has been developed for, 
and installed on, an IBM computer with the Conversational 
Monitor System (CMS). GIFTS, developed at, and available 
Prem the interactive Graphics Engineering Laboratory of the 
Umwersity of Arizona, is an extensive code for static, tran- 
Slent, modal, and constrained substructural analysis of three 
dimensional truss, plate, shell, and solid finite element 
Wom@ets. A Drief description of GIFTS, including insights 
Miemmesmiogic and Structure necessary to the version's 
development, and an in-depth description of the method used 
to invoke CMS commands from the executing program for the 
purpose of data base management are provided. The version, 
making use of the Tektronix 4000 series graphics terminals, 
is self-contained and portable, allowing its installation 


on other IBM computers with the CMS onerating system. 
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i. ANERODUGEION 


The purpose of this thesis is to describe the development 
o- an IBM (cP/cMs)+ version of the Graphics-oriented Inter- 
active Finite Element Time-sharing System (GIFTS). GIFTS, 
developed at, and available from the University of Arizona, 
1s a set Of computer programs designed to perform static and 
dynamic structural finite element analysis, making extensive 
use Of interactive computer graphics which allows the user to 
ensure correct structural modeling and to view the results of 
the analysis in a manner most understandable to him. 

Versions of GIFTS have been developed for several differ- 
ElGwcomputrers but mot for the IBM, and in particular, for an 
IBM with CP/CMS. At the Naval Postgraduate School it was 
Pocimedeto provide GIFTS as an instructional tool to the 
students on a system for which they enjoy ready access and 
were familiar. This system is the school's main frame, an 
IBM 3033 with CP/CMS. It was to meet this need that the 
development was undertaken. A self-contained IBM (CP/CMS) 
version of GIFTS for an IBM with CP/CMS was developed in such 
a way as to allow easy implementation on other IBM systems 


Webene ce 7 CMS. 


1 international Business Machine with the Command Program 
and Conversational Monitor System. 





ierisemOotethe Intemt of this thesis to provide a detailed 
description of GIFTS, for this, the reader should consult the 
GIFTS reference manuals [Refs. 1-4]. It is the intent to 
Peovige: INtOrmatiom on those areas of GIFTS logic amd struc- 
ture that are necessary to the understanding of this version's 
development and to provide some guidance in the implementation 


and use of the GIFTS IBM (CP/CMS) version. 








Lites RI Er eDESCREPTION -OPSGIFTS 


GIFTS, developed by Professor Hussein A. Kamel and Mr. 
feenacl W. MeCabe of the University of Arizona, is an inter- 
active finite element analysis system designed to provide 
the user with a unified approach to model generation, model 
display (tabular or graphical), analysis and result display, 
with a minimum of input by the user. It may be used as a 
Sees cOntdined system, or as a pre- and post-processor for 
other systems.“ It 1S operational on many systems, includ- 
ing mini-computers with cores having as few as 32,000 words 
of addressable memory (on mini-computers, the program modules 
must be overlayed). 

GIFTS consists of over 100,000 lines of FORTRAN source 
code divided among 25 individually executable program modules. 
The modules, being run independently of each other, communi- 
cate by means of an automatically managed, disk resident 
data base, known as the Unified Data Base (UDB). To perform 
a complete finite element analysis with GIFTS, the user exe- 
cutes a GIFTS procedure, using a number of modules in a 
specified order depending on the type of analysis being 
Bertormmed-s GLFTS has procedures for static, transient, 


modal, and constrained substructural analysis of three 


Interfaces for pre- and post-processing are available 
for ANSYS, SAP4, and NASTRAN. 


10 





dimensional truss, plate, shell, and solid finite element 
models. The program modules use interactive computer graphics 
extensively for viewing the results of model generation and 
problem solution. GIFTS can also provide the user with the 


infOrmation in tabular forn. 


fe fee MODULES 
The GIFTS program modules vary in size from a few hundred 
lines to over 12,000 lines of machine independent code. They 
can be grouped according to their intended use. These group- 
ings are: 
1) the model generation and editing modules, 


2) the load and boundary condition generation, dis- 
play and editing modules, 


3) the general purpose computational and result 
display modules, 


4) the natural vibration analysis modules, 
5) the transient analysis modules, and 
6) the constrained substructuring modules. 
A brief description of the program modules can be found in 


Appendix A. 


B. THE LIBRARIES 

Commonly used subroutines and functions are grouped into 
a user library called the GIFTS library. For convenience, 
Gite GELFTS library is subdivided into five groups called 
Peet. LIBRZ, LIBR3, LIBR4, and LIBRS. O£ these groups, 


only LIBRS contains machine dependent subroutines and 
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functions. LIBRS is composed of approximately 30 routines 
containing machine dependencies that must be modified for 
each computer system on which GIFTS is implemented. The 
routines in LIBRS are grouped according to function. The 
groups are the Graphics Package, the Character Manipulation 
Package, and the Data Base Management Package. It was through 
the modification of, and addition to, these packages that the 
IBM (CP/CMS) version was developed. 
ewe Graphics Package 
This is a set of subroutines containing all the neces- 
Sary software to drive a Tektronix 4000 series graphics ter- 
minal. If a different terminal is desired for the graphics 
output, these subroutines are the ones to be modified. 
2. The Character Manipulation Package 
These subroutines are used to pack, unpack, compare, 
and change the format of characters and character strings. 
They conduct interactive I/O with the user and make Operating 
System calls for the date, time of day, and CPU time used. 
3. The Data Base Management Package 
This package of routines performs data base manage- 
ment by invoking primitive file handling functions, such as 
opening, closing, defining, extending, renaming, printing, 
and deleting UDB files. It additionally performs aii I/O 


OpieGations with the direct access UDB files. 





Pil. IBM Lier EMeENTATION 


Three requirements were established for this IBM (CP/CMS) 
version development of GIFTS. They were: to maintain the 
logic of the machine independent routines” (thae is , wet co 
alter them); to continue the use of the Tektronix 4000 series 
terminals for graphics; and to provide a self-contained pack- 
age of routines that would allow installation on other IBM 
systems with little or no alteration. The only requirement 
Dorelictmvds tne first, tO maintain the logic of the machine 
independent routines, but it was only necessary to modify 
subroutine ERESLT in LIBR1. This alteration and the acconm- 


plishment of the other requirements are discussed below. 


Pee be SYol &M 

The IBM (CP/CMS) version was developed on an IBM 30535 
with the Virtual Machine Facility/370 (VM/370) System. It 
should be noted that VM is not the operating system but 
rather the virtual machine 'manager'. 

The VM/370 system supervises four components: the con- 
trol program (CP), the conversational monitor system (CMS), 


the remote spooling communications subsystem (RSCS), and 


*The GIFTS' program modules, LIBR1, LIBR2, LIBR3, and 
LIBR. 


+See ciemoectiom on the Opening of Files in thasem@@hapter . 





Picwaibteractive problem control system (IPCS). Only two of 
these components, CP and CMS, were necessary for the imple- 
mentation of GIFTS. More detailed information on CP/CMS can 
De obtained from References [5] through [8]. 

ime ihe Control Program (CP) 

CP allocates to the virtual machine of each user the 
Meo rees necessary for proper interface between the virtual 
machine, with associated virtual input/output (1/0) devices, 
and the real computer with associated real I/O devices. It 
additionally allows communication between virtual machines, 

Co eeenemGonversational Monitor System (CMs) 

CMS is the operating system of the virtual machine 
and as such has commands for editing, compiling, loading 
(linking), and executing programs. It also has commands for 
eile manipulation that can be invoked from the CMS environ- 
meme. an 'EXEC' file’, OTP aOneal, excelente a rOc mam. “lit. 15 
through the use of these file manipulation commands, invoked 
Ee@meGhFTS during execution, that the development of this 
version was made possible. A brief description of the CMS 
commands used in the IBM (CP/CMS) version can be found in 
Pepenarx B. 

a. Invoking CMS Commands from an Executing Program 

In order to invoke a CMS command from an execut- 


ing program it was necessary to provide an assembly language 


This is the same as a command file in other operating 
systems. 
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program that would execute CMS commands passed to it from the 
executing program. To this end, the assembly program FRTCMX 
was developed. A listing of FRTCMX can be found in the list- 
ing of LIBRS5A in Appendix H. FRTCMX executes the CMS commands 
in the CMS environment, and then returns control to the call- 


ing FORTRAN program. As an example, the FORTRAN statement: 
Or FRECMX (IERR, 'ERASE oo PLE DORN, “Pas ") 


would delete the file 'PIPJOINT PTS A' from the user's disk 
Space. The argument IERR contains the CMS return code (error 
code) that could be checked to ensure the command execution 
was successful. More detailed documentation on the use of 
BemeMx can be found in its listing. 

Be the €MS File Identifier 

GMS also controls the file identifier. A file 

created under CMS has an identifier composed of three parts: 
a file name (maximum of 8 characters), a file type (maximum 
of 8 characters), and a file mode (2 characters). As an 


example, in the file identifier: 
PIPJOINT PIS wae 


PIPJOINT is the file name, PTS is the file type, and Al 
iemcatmens the file is on the user's ‘A’ disk) is the file 
mode. CMS does not allow more than one version of a file to 


exist on a disk space. That is to say, two files on the Same 


LS 





disk space cannot have the same name and file type, which 


peowed tO be of some importance in this version's development .° 


B. THE IBM (CP/CMS) GRAPHICS PACKAGE 

As stated earlier, a goal of this verion's development 
was to continue the use of the Tektronix 4000 series terminals. 
for graphics. To this end, the GIFTS graphics package sup- 
plied by the University of Arizona was used and required only 
minor modifications. In addition to these modifications, it 
was necessary to add four assembly routines to provide for 
meme tO EBCDIC conversion and non-interfering [I/O operations 
between the graphics package and the terminal. This section 
is intended to cover the need for the modifications and the 
added subroutines. A description of all the graphics package's 
subroutines can be found in Appendix E, and a listing of the 
assembly routines can be found in Appendix H. 

iPeeocll/EBCDIC Translation 

The IBM system uses the EBCDIC character set while 

the Tektronix terminals use ASCII. To allow communication 
between the computer and an ASCII terminal, an IBM ASCII 
interface is provided, within the system, that automatically 
executes the conversion between ASCII and EBCDIC characters. 
All 1/0 operations directed to an ASCII terminal must pass 


Beuouen tails interface. 


SSee Seerion D Of this Chapter on Data Base Management. 
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All Output to the terminal from the graphics package 
is broken up into single characters and placed into an output 
array named LCHOUT, which is dimensioned 80. These graphics 
package output characters can be divided into three groups: 
the graphics characters that are interpreted by the terminal, 
when in graphics mode, as being coordinates to which the 
terminal's cursor is to be moved and/or to which a vector is 
memeewdrawn; the control characters that place the terminal 
in alphanumeric mode, graphics mode, erases the screen, rings 
mie bell, etc.; and the text that is to accompany a given plot. 

In the GIFTS' graphics package, as with all similar 
Peekages, the graphics characters, that is, those characters 
that provide screen coordinates to the terminal, are computed 
in ASCII Decimal Equivalent (ADE) integers. These ADE inte- 
Baie atana directly to ASCII characters, after being cal- 
Smemed, Are placed into array LCHOUT for output. If LCHOUT, 
fieaining these ADE integers, were output to the terminal, 
[ae computer system's ASCII interface would interpret them 
as Deing EBCDIC, resulting in improper conversion to ASCII 
Pedwomepueeto the terminal. Because of this, it is necessary 
to convert the ADE integers contained in LCHOUT to EBCDIC 
characters before output to the terminal. This translation, 
an well as the output to the terminal, is accomplished by 
the assembly routine WRTADE. WRTADE converts the array of 
ADE characters to EBCDIC and sends them to the terminal with- 


Suited Caupirage return being added to the end of the output 


Ly 





array. For the case where input from the terminal is required 
by the graphics package, the opposite logic applies. Routine 
RDADE reads the characters from the terminal, converts them 
from EBCDIC to ASCII and places them into a desired array for 
use by the graphics package. More detailed documentation on 
WRTADE and RDADE can be found in the listing of LIBRSA in 
meeemdix HY. Since the graphics characters are calculated in 
ADE @itegers and placed into the output array in that form, 
memisemecessary that all other characters placed into the 
ieee Saelso be ADE integers. For the control characters, this 
presents no difficulties since they are already defined in 
the graphics package in ADE form. The text to accompany the 
plot, however, is passed to the graphics package as EBCDIC 
characters in A4 format (up to 4 characters per word). Before 
tae text can be placed into the output array, it must first be 
broken up into individual characters and converted to ADE 
integers. This is accomplished by assembly routine TOADE. 
Additionally, in subroutine CURSOR, following the use of 
RDADE, it 1s necessary to translate a character from ADE to 
EBCDIC for use outside the Graphics Package. The assembly 
routine TOEBCD is used for this purpose. A listing of both 
TOADE and TOEBCD can be found in Appendix H. 
Peeusimme the Graphics Butter to the Texminal 

When the terminal is in the graphics mode, all char- 

acters received are interpreted by the terminal as being 


Smeterecontrol or graphics characters. if interline characters 
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Seewceaed to the end of the graphics output buffer when 
weaned to the terminal, they may be interpreted as con- 
trol characters causing the terminal's mode to be modified, 
or as graphics characters causing unintended or random 
vectors to be drawn. As indicated in the previous section, 
subroutine WRTADE prevents a carriage return from being added 
to the end of the output buffer, but the IBM system continues 
to add two characters to the end of the buffer. The first is 
the control character DC3, and the second the graphics char- 
acter DEL. Since these characters are added to end of the 
Output buffer, it was necessary to ensure that when the char- 
e@eGoeadGe received by the terminal, it would be in alpha- 
Dumeric mode, thus preventing their interpretation as part 
of the intended graphics package output. This was accomplished 
by placing the ADE integer 31 (equivalent to the ASCII control 
character US), which places the terminal into the alphanumeric 
mode, into the output array, as the last character. 

nema Cestuit Of Placing the terminal into alphanumeric 
mode at the end of each buffer flush, it was necessary to 
ensure that the set of graphics characters describing the 
coordinates for a vector not be split between buffers. If 
they are split, the desired results may not be obtained. A 
coordinate description, in ADE form, can consist of up to 
four characters, so in subroutine PLTCHR, which computes the 
ADE integers for the desired coordinates, a check is made to 


ensure that there is room in the output array for at least 


1 





oupedddrepomal Characters. If there is not, the array is 
tivehed, which causes the terminal to be left in alphanumeric 
mode. After this flush, and before PLTCHR continues to cal- 
culate the new coordinates, the control character GS (ADE 29), 
which causes the terminal to switch to graphics mode, is 
pieced iImto the output array followed by the four control 
Smaeaeters that describe the graphic cursor's position prior 
@o the previous flush. It is necessary to provide these coor- 
dinates because the first vector drawn after the control char- 
acter GS is issued to the terminal, is invisible. PLTCHR then 
continues and calculates the new coordinates and causes them 


to be placed into the output array. 


C. THE IBM (CP/CMS) CHARACTER MANIPULATION PACKAGE 

The modifications necessary to the Character Manipulation 
Peee@rocewenre NOt extensive in nature and were mainly related 
to ensuring that the characters used in the many FORTRAN data 
statements were in EBCDIC form. In addition to these modi- 
fications, extenSive use was made of five assembly routines 
provided by the Interactive Graphics Engineering Laboratory 
of the University of Arizona, for character manipulation. 
Mire =rourcimes are DECODE, ENCODE, DECOD, BID, and ENF. A 
description of all the routines making up the IBM (CP/CMS) 
Character Manipulation Package can be found in Appendix F 
and a listing of the assembly routines can be found in 


mopendix H. 
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Of importance in this package are the calls to system 
routines for the date, time of day, and CPU time used. The 
routine called for the date and time of day is DATIME (called 
in subroutines DATEP and TIMEP) and for the CPU time used is 
SETIME (called by subroutine INITIO of the Data Base Manage- 
ment Package) and GETIME (called by subroutine SECOND). If 
these routines are not available on other systems, appropriate 


substitutions must be made. 


D. THE IBM (CP/CMS) DATA BASE MANAGEMENT PACKAGE 

Sieece tne modules communicate with each other through the 
UDB, it is of the utmost importance that it be correct and 
momaced properly. In addition, it 1s important that in the 
Malagement process, that the data base disk space be minimized. 
This section covers the management of the UDB on the IBM with 
CP/CMS. A description of all routines used in the IBM (CP/CMS) 
Data Base Management Package can be found in Appendix G, and 
a listing of the assembly routines can be found in Appendix H. 

1. The IBM (CP/CMS) Data Base 

The UDB for the IBM (CP/CMS) version is identical to 

PiaeeOmmenc Other versions except for the addition of one 
file, which will be covered in the SPECIAL SEQUENTIAL DATA 
BASE FILE section below. The UDB consist of up to 48 random 
access and 9 sequential files that are managed automatically 


by GIFTS. 





a. The Direct (Random) Access Files 

The 48 unformatted direct access UDB files used 
by the IBM (CP/CMS) version are identical to those used by 
Sener versions. It is neceSsary at this time to introduce 
some GIFTS terminology in regards to the UDB. 

A "logical record' is the smallest unique collec- 
tion of data into which the data contained in a file may be 
divided. As an example, all the data pertaining to one node 
in the UDB file with the file type PTS make a ‘logical record’. 
The logical record size, in words, is determined by summing 
the product of the number of 'integers' in the logical record 
tomes tne number Of machine words per integer and the number 
of 'reals' in the logical record times the number of machine 
words per real number. Consider again the UDB file with the 
file type of PTS. It has 10 integers and 17 real numbers per 
ieeteamenpecord. For single nrecision, the [8M uses one word 
for both integer and real numbers, and for double precision, 
IBM uses one word for integer numbers and two words for real 
Mumeers. The word size for a logical record in the PTS file 
would therefore be 27 for single precision and 44 for double 
PEeels 1On.. 

omesrecal record 9» 1s the collection of data 
that must be read from or written to a file with a single I/O 
instruction. It may be made up of any integral number of 
logical records. The number of logical records stored in a 


Pepcicalerecerd Of a file is termed the file's ‘blocking 
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eur . ine UPB file type PTS has a blocking factor of 10, 
and thus a physical record word size of 270 words for single 
precision and 440 words for double precision. When a phys- 
Berm record 15 read Or written to file type PTS, information 
on 10 nodes will be involved. 

It 1s the physical record word size that is used 
in the FORTRAN statement DEFINE FILE to define the random 
a@ecees filés. The physical record word size for all the UDB 
Pele types can be found in Appendix C. Both single and double 
Meeersign Sizes are included although GIFTS currently is only 
Single precision. It is anticipated that a double precision 
version will be available in the near future. 

The file name assigned to these random access UDB 
files is the same as the job name provided to GIFTS by the 
user during module execution. For example, if the user were 
analyzing a pipe joint, he may provide GIFTS a job name 
PIPJOINT (the job name, like the file name, is limited to 8 
characters), in which case the UDB file type PTS would have 
memerecmtaencifier 'PIPJOINT PTS A’. 

b. Sequential Data Base Files 

Of the nine sequential files in the UDB, only 
five will be discussed here, with the remaining four discussed 
under the heading of SPECIAL SEQUENTIAL DATA BASE FILES below. 

These sequential UDB files do not require, as 
With the direct access files, a specified file size. The 


eelemeypes are CFR, DGT, DYN, HST, and SAV. 
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The file type CFR is used to store data involved 
With contours used in module RESULT. File type DGT is used 
to store digitizer information, while DYN stores information 
relating to modal analysis, with HST containing information 
for a histogram plot in transient analysis. File SAV is 
used to save the stiffness matrix. 

These files are automatically created by the 
GIFTS modules and are given a file name equal to the GIFTS 
job name. 

c. Special Sequential Data Base Files 

These files are placed in this cateogry because 
they do not follow the naming convention of other UDB files 
and are not necessarily created by the GIFTS modules. 

icheeeot Otesthese special UDB files has the file 
type SRC. An SRC file can be created with any file name, by 
the user, via the text editor in the CMS environment and will 
contain a list of GIFTS commands and their associated data. 
The commands can be executed from an interactive module via 
the command OLB (On Line Batch). When the OLB command is 
execused GIFTS prompts the user for the file name of the SRC 
file. After the file name is entered, the commands contained 
Mmete tile aves read and executed by GIFTS. For more intorma- 
tion on the SRC file's use, consult the GIFTS User's Reference 
Mamual [Ref. 1]. 

The next special file has the identifier GIFTS5 


INF and resides on the GIFTS system's disk space. This file 





Semtains a listing of all GIFTS’ commands with instructions 
for their use. The file is accessed from interactive modules 
via the command HELP. When the command is issued, GIFTS 
prompts the user for the command for which he desires inform- 
ation. After this is entered, GIFTS opens the file, locates 
the desired information, and displays it at the terminal for 
jae) user - 

Piewiast juwo swecial files are. GIFTSS EST and »GIFISS 
ESX which generally reside on the user's disk space. GIFTS5 EST 
contains information which is used by solution module OPTIM to 
make solution time estimates for the solution modules STIFF, 
DECOM, DEFL, and STRESS. These four modules perform updates 
fomeme Libe dining their execution. GIFTS logic is such that 
during this updating procedure, it performs both read and 
Paweeewoperations to GIFTSS EST. In other computer systems on 
which GIFTS is operated, this 1S accomplished by opening one 
ers s Bot file for input and another for output, on the same 
disk space. Since the IBM system does not allow two files to 
exist on the same disk space with the same identifier, this 
presented a problem. This problem was solved by opening file 
Oto eoheror input, but having output directed to GIFTS5 
ESX. This is accomplished when GIFTS calls for the opening 
Sreoli@es EST for OWfput. The subroutine that opens sequen- 
teal files for output, changes the file type from EST to ESX. 
When these modules complete their I/O operations on these 


files, and the files are closed, GIFTS5 EST, now being 
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superseded by GIFTS5 ESX, is deleted from the user's disk 
Space, so that the user will only have one of these files 
present on his disk space. When the next GIFTS module is 
emecuted., GIFTSS ESX 1s remamed GIFTS5 EST, making it ready 
for input. If the user executes one of the solution modules 
wiememt GIFTSS EST or GIFTS5 ESX being present on his disk 
epace, GIFTS will use the GIFTSS EST file on the GIFTS system's 
disk space for input and will create GIFTS5 ESX on the user's 


disk space during output. 


2. Defining the Direct Access Files and GIFTS Module 
IBMUDB 


Before unformatted direct access I/O operations can 
occur, the direct access file must first be defined. This is 


fecempyrtsned With the FORTRAN statement: 
Peele FIVE ISlb) (INR, ISR,U,1vy; 


me@ere: ISL is the logical umit number assigned to the file, 


INR is the maximum number of 'physical records' 
that can be contained in the file, 


ISR is the 'physical record' size in words, 


U indicates that the records are to be written 
and read without format control, and 


IV is the record number associated variable (not 
used in GIFTS but must be included in the 
statement). 

In all the versions of GIFTS that have been available, 


the meenine’s FORTRAN allowed ISL, INR, and ISR to be integer 


Variables. The logics and structure of the GIFTS data base 





management was based on this. This fact allowed the use of 
one DEFINE FILE statement, located in subroutine DEFIN of 
LIBRS, in these versions. The logical unit number (ISL), the 
weeasacal record’ saze im words (ISR), and the mumber of 
‘physical records' required (INR), were simply passed as 
arguments to this subroutine. When it became necessary to 
increase the size of the file, that 1s increase the number 

of records allowed in the file (INR), the file was closed via 
aecalisto a system function or through the use of a FORTRAN 
Statement, and then the file would be redefined with the same 
value for ISR and the increased value for INR. The logical 
unit number (ISL) for the file could change as the file was 
opened and closed. 

This logic presented a problem for the IBM (CP/CMS) 
version, since both the IBM FORTRAN G and FORTRAN H-extended, 
available at the Naval Postgraduate School, do not allow ISL, 
INR, and ISR to be integer variables. They must be integer 
constants. Additionally, since there was no way to close a 
mile during execution’ , once the DEFINE FILE statement was 
made in an executing program, it could not be changed in 
that program to allow for file growth. 

It became clear that a DEFINE FILE statement would be 


uegmiredmror each direct access file. For this, logical unit 


‘The CMS command FINIS only closes a file in the CMS en- 
vironment, not in the FORTRAN execution environment (IBCOM). 
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numbers 50 through 98 were used and the ‘physical record' size, 
in words, was calculated as described in the preceding section 
Omemcdigect access files. This left only the number of ‘physical 
records' (INR) to be entered, and as the only undetermined 
quantity, with its value dependent on the desire to conserve 
disk space and to ensure that the user would not be unknowingly 
constrained by a data base too small for a desired analysis. 
Both of these seemingly opposite requirements were met through 
the introduction of the new GIFTS module IB3MUDB. 

Before continuing with more information on program 
IBMUDB, it is necessary to explain some facts about direct 
access file creation on the IBM system and about some addi- 
meeomal GIFTS’ logic and structure. 


Consider the FORTRAN statement: 
Debente PILE 0 (400,27 .uUlIV). 


It defines a direct access, unformatted file on logical unit 
Miemedewe piysrtecal record' will be 27 words long and there 
ia bewap to 100 ‘physical records’ written to the file. 

The statement itself does not cause the creation of this 
file. It is only after the file is written into that this 
Oe@eurse lf the file did not exist prior to program execu- 
mionemeanad Only 5S records are written to the file, the system 
will write those 5 records, plus fill the remaining 95 
records with zeros. The result is a great deal of wasted 


disk space. However, if the file existed on the disk space 








prtor to the program execution containing this DEFINE FILE 
meercement, tnere Could be a different result. As an example, 
assume that the file in question was created by a previous 


program execution containing the statement: 
De Fr oneees U2 7 ell aay) 


This is similar to the previous DEFINE FILE statement except 
Pak only one record can be written (or read), as indicated 
by a value of 1 for INR. When the program containing the 
DEFINE FILE statement allowing 100 records is executed and 
the file written into, only those records written will be 
added to the file. As an example, if during the second pro- 
gram's execution, the same five records are written to the 
mutes Only those five records will be written to the disk, 
not the 100 as before, thus saving disk space. It can be 
seen that this method, if properly used, could result in the 
conservation of disk space while allowing for file growth. 
It is now necessary to discuss some important facts 
about GIFTS and its data base management logic. Whenever 
Swewore tne GlPIS model generation modules® Ss) Disko © seece Cunme ce 
for an analysis, it checks for the presence of the data base 
Pores for the eiven job name, and if they are present, GIFTS 
calls for the deletion of the old data base and the creation 


of a new one. If the data base for an analysis was created 


SModules BULKM, BULKS, EDITM, and EDITS. 





purer tO the execution of one of these modules, for the pur- 
Bese Of Ccolserving disk space and allowing for file growth, 
as described above, its intended purpose would be defeated 
if it were deleted. 

The new GIFTS module IBMUDB was developed to create 
a ‘dummy’ data base for GIFTS and is executed prior to per- 
forming an analysis on the IBM. In IBMUDB, each direct access 
data base file is defined with its respective ‘physical record’ 
$size, in words, and with a maximum of one record. Then, in 
@iewitinst word of that reeord, the integer -999 is written. 
Thus, a data base file with -999 in the first word of the 
first record is considered a 'dummy' data base file, and 
through the modification of the Data Base Management Package 
Of LIBRS, GIFTS considers a ‘dummy’ file not to be present. 
Peeratinesof module IBMUDB can be found in Appendix D. 

The DEFINE FILE statements executed in all modules, 
Seeepe IBMUNB, are located in subroutine INITIO of the Data 
Base Management Package of LIBRS. In these statements, each 
mimgeetmaceess data base file is defined with its respective 
logical unit number and ‘physical record' size in words, and 
with a maximum number of records of 1,000,000, which essen- 
tially provides the user unlimited growth for the data base. 
The actual data base size will only be limited by the user's 


disk space available. 
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Sy. Opening of the Data Base Files 


On the IBM system, a file is opened automatically when 
an I/O operation” Poe perrormed] susanewthe file's losieal init 
number. If the logical unit number has not been associated 
with a file identifier by the user, CMS automatically assigns 
an identifier based on the logical unit number used. As an 


example, if the sequential I/O statement: 
Wiciedete ( 2 eeu @n) 


were executed without the association, CMS would assign the 


identifier: 
FILE FT29F001 A, 


which tells nothing about the file contents. In keeping with 
MiewOnriginal structure of GIFTS, the opening of a file was con- 
Sigemed tO be the association of the proper file identifier 
With its logical unit number. 

In other versions of GIFTS, a maximum of thirteen files 
(ten direct access and three sequential) were allowed to be 
Omen at any given time. Generally, logical unit numbers 1 
through 4 and 7 through 12 were used for the direct access 
files while 13 through 15 were used for the sequential files. 


The logical unit numbers were assigned by subroutine SLTASN 


For meee teaccess files the DEFINE FILE statementemust 
precede the I/O operation. Additionally, if the operation 
Poeiem Input, the file must already exist. 
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of the Data Base Management Package. When necessary, the 
logical unit number would be released by the closing of the 
file and then the freeing of the number by subroutine FRESLT 
in LIBR1l. This logic works provided that during the execution 
of a program, a logical unit number could be used for more 
than one direct access file identifier, which is not the case 
for the IBM system with FORTRAN G or FORTRAN H-extended. On 
ame Tew once a bogical unit number is used for a given direct 
access file, it cannot be associated with any other file. 
Because of this, in the IBM (CP/CMS) version, each UDB file 
1s assigned its own logical unit number. Subroutine FRESLT, 
which was in LIBR1 and thus considered a machine independent 
routine, was moved to LIBR5 and made a 'dummy' routine, that 
1s, 1t was changed to contain no executable FORTRAN statements. 
Subroutine SLTASN was also made a 'dummy'’ routine. These two 
routines were not deleted from GIFTS because they are called 
by routines contained in the machine independent portions of 
GIFTS and it was desired not to alter these. To compensate 
for the void left by making SLTASN a 'dummy' routine, subrou- 
tine MANAGE was added to the Data Base Management Package. 
This routine relates a data base file type with its respec- 
tive logical unit number. It will return the logical unit 
number if provided with the file type or the file type if 
provided with the logical unit number. MANAGE is called only 
by routines contained in the Data Base Management Package. The 
logical unit numbers for each of the data base files can be 
momma, in Appendix C. 
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All the data base files are opened, tnat is the data 
base file identifier is associated with its respective logical 
unit number, by invoking the CMS command FILEDEF during program 
execution, +9 it@meeaivedme fOr Dy Glia. for direct access files, 
Mors is accomplished in subroutine DEFIN. Here the FILEDEF 


command 1S issued and has the form: 
FILEDEF ISLDEF DISK XJOB EXT8 A (XTENT 1000000 DSORG DA) 
where: ISLDEF 1s a double word real variable containing 
the logical unit number, 


DISK indicates the file is to be disk resident, 


XJOB is a double word real variable containing 
the file name, 


ENTS is a double word real variable containing 
the file type, 


A 1s the file mode, 


XTENT 1000000 is the maximum number of records 
in the extent for the file, and, 


DSORG DA indicates that the data set organization 
is direct access. 
For the sequential files, the statement: 


Fibewer IohUEr DISK XJOB EXTS A 


imecwonatey used, With ISLDEF, DISK, XJOB, EXT8, and A 


having the same meaning as for the direct access FILEDEF. 


tOThis is accomplished via a call to assembly routine 
Hae @erdtseussed in Section A of this Chapter. 
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Three subroutines, OPENIF, OPENOF, and OPENLP are used 
to open the sequential files. Subroutine OPENOF opens a file 
for output and uses a FILEDEF statement identical to the one 
above. Subroutine OPENIF is used to open a sequential file 
fOr input. In this routine, if the file to be opened is either 


GIFTSS EST or GIFTSS INF,?2 


a check is made to determine if 

the file exists on the user's disk, if it does not, the FILEDEF 
for the file is made with the file mode set to C, where C in- 
dicates that the file is to be read from the GIFTS system's 
disk space to which the user is linked. Subroutine OPENLP 


opens a sequential file, for output, that may be spooled to 


the line printer by GIFTS. The FILEDEF used here is: 
eee brn 20° DISK PRINAM PRNTFILE A, 


where: 20 is the logical unit number, 


DISK indicates that the file is to be disk 
resident, 


PRTNAM is a double word real variable containing 
the file name, provided by the user, 


PRE ILE is the file type, and, 
A is the file mode. 
a eeerosing, Files 
Since the IBM FORTRAN G and FORTRAN H-extended do not 


provide FORTRAN statements that allow a file to be closed 


tee section entitled Special Sequential Access Files in 
Bipecmemapter . 








during execution, the IBM automatically closes all files opened 
during execution when the execution is terminated. This, coupled 
with the fact that GIFTS has not been limited as to the number 
of files it may have opened during execution (see the previous 
section), it may at first appear that there is no need to be 
Bamectied about closing a file, which is in fact the case in 
the FORTRAN execution environment, IBCOM. However, in the CMS 
environment, in order to rename a file, it must be inactive 
(closed). There is a CMS command, FINIS, that does allow for 
the closing of a file in the CMS environment. This command is 
invoked from GIFTS during execution via a call to FRICMX (see 
Peeruouen OL thas Chapter} in subroutine CLOSEF of the Data 
Base Management Package of LIBR5. This command has been in- 
@muced in CLOSEF for the express purpose of allowing a file 

to be renamed, which will be discussed later in this Chapter. 


The FINIS command issued in CLOSEF has the form: 
PENS XJOBVEXT Ss: A; 


where XJOB and EXT8 are double word real variables containing 
the file name and file type, respectively, and A is the file 
mode. 

Wieue 1s an additional subroutine called by GIFTS to 
Suecemaetaile., It 1S Subroutine CLOSLP, which 1S intended to 
close the line printer file and spool it to the line printer 
as directed by the user. For this version, the system was 


allowed to close the file at the termination of module 





eeocuctou. When the subroutine is called, it will, if a prin- 
ter file has been created, prompt the user if he desires the 
melesto be spooled to the line printer or not. In either 
case, the file will remain on the user's disk space following 
execution termination. The CMS command used here is: 
PRINT PRTNAM PRNTFILE A, 
where: PRTNAM 1s a double word real variable containing 
the file name, 
PRNTFILE 1s the file type, and 
A 1s the file mode. 
Smeelcteting Files 

Based on the discussion in the section entitled 
DEFINING THE DIRECT ACCESS FILES AND GIFTS MODULE IBMUDB, 
Sauber ein this Chapter, it is obvious that deletion of a 
direct access data base file would defeat the logic behind 
the use of module IBMUDB. When GIFTS calls subroutine DELETE 
for the deletion of that file, rather than being deleted, it 
memadestato a ‘dummy' file by writing -999 into the first 
word of the first record of the file. <A ‘'dummy' file will 
be interpreted by the Data Base Management Package as not 
being present. Subroutine DELETE does delete sequential 
files via the CMS command ERASE. This command in DELETE has 
ie sadam ¢ 


ERASE SAVIOR UBXT oO 74 


where XJOB, EXT8 and A are the same as those for the FINIS 


Command in the previous section. 
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G, Renaming Files 


During the execution of some of the GIFTS modules, 
PeMeemarny tiles are created and later renamed. Specifically, 
the data base file types PTX, LDX, and SLX are created and 
tater nenamed PTS, LDS, and SLI, respectively. To understand 
Meaeaecemcie need to do this, and the logic of GIFTS in this 
Maeeecu ne cOnsiaer the file type PTS. This file contains all 
the information pertaining to the nodes of the model and is 
first created during model generation. The nodes are entered 
in the file in numerical order, based on user assigned numbers. 
Solution module OPTIM is executed to optimize the node number- 
migeimeorder to decrease the problem 'band width’. In this 
pmeecess, the nodal information 1s read in from file type PTS, 
and the nodes are renumbered and output in numerical order, 
based on the optimization renumbering, to file type PTX. 

Once this has been accomplished, OPTIM calls for file type 
PTS, of the current job, to be deleted and for the renaming 
Gemembestype PTX, of the current job, to be renamed to file 
type PTS. The renaming is accomplished in subroutine RENAME 
of the Data Base Management Package. Since direct access 
files are not actually deleted (see the preceding section on 
the deleting of files), but rather made into 'dummy' files, 
Doeweelowand PTX will actually always be present on the disk. 
In order to maintain both files on the disk, what is actually 
desired is an exchange of names between PTS and PTX. This ex- 
change of names is accomplished via the CMS command RENAME with 


the form: 
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RENAME XJOB PTS A XJOB XXX A 

RENAME XJOB PTX A XJOB PTS A 

RENAME XJOB XXX A XJOB PTX A 
Here, the file with the identifier XJOB PTS A is renamed XJOB 
XXX A, then file XJOB PTX A is renamed XJOB PTS A and finally, 
file XJOB XXX A is renamed XJOB PTX A. This ‘around about' 
method is necessary due to the fact that no two files can 


exist on a CMS managed disk with the same identifier. 


In subroutine RENAME, the actual RENAME command has 


the form: 
RENAME XJOB EXT81 A XJOB XXXXX A 
RENAME XJOB EXT82 A XJOB EXT81 A 
RENAME XJOB XXXXX A XJOB EXT82 A 
where: XJOB is a double word real variable containing 
the file name, 
Enea 1 
and are double word real variables, each con- 
EXT82 taining one of the file types to be renamed, 


XXXXX celtic mMeccictome tle sty pe. | XXk for 
the name exchange process, and 


A 1s the file mode. 


There 1s an additional complication to the renaming 
Peoeesoe resulting from the inability to close a file in the 
FORTRAN execution environment (IBCOM) of the IBM system. 
Because of this, once an I/O operation has been performed to 
Pectreecr access file with its respective logical unit number, 
Sidtelocieal unltsnumber cannot be changed. Again consider 


the file types PTS and PTX. Their logical unit numbers in 
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this version are 86 and 87 respectively. If, during the exe- 
cution of OPTIM, after the files have been renamed, an I/0 
Gpetaeton 1s directed at file type PTS (the old PTX file), 
logical unit number 87 (the logical unit number old file PTX) 


must be used. Since subroutine MANAGE! 


assitenss looieaimunit 
numbers based on file types, it was necessary that MANAGE be 
aware when renaming occurred, so that the renamed files would 
maintain their original logical unit numbers. This was accom- 
plished by setting a switch, passed to MANAGE by a labeled 
common block, in RENAME for the files that are renamed. 

It was also necessary, in this IBM (CP/CMS) version 
to rename, if it exists, file GIFTSS ESX A to GIETSS EST A‘? 
at the start of module execution. This is accomplished by 
invoking the CMS RENAME command in subroutine INITIO of the 
Data Base Management Package. 

faeeiiceming tor a File's Presence 

GbRNs utilizes logical function PRESNT of the Data 

Base Management Package to check for the presence of a UDB 


Polemnon: use by GIFTS. PRESNT first determines if the file 


is present on the user's disk space via the CMS command: 


See ORME lo Ay 


NZ 


maces the section on Special Sequential Data Base Files 
in this Chapter. 


See the Section on the Opening of Files in this Chapter. 
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If the file is sequential and is determined to exist on the 
Mer s a€isk space, PRESNT is set equal to TRUE, if not on 

the disk space, then it would be set to FALSE. For a direct 
access file, if the file exists on the disk space, the first 
Wiermed Of the first record is read and if it does not equal 
-999, PRESNT is set equal to TRUE, and if it does equal -999, 
it 1s a ‘dummy' file and PRESNT is set equal to FALSE. If, 
on the other hand, the file is direct access and is not pre- 
sent on the user's disk space, PRESNT stops module execution 


and issues the message: 
UDB FOR JOB XXXXXXXX NOT CREATED VIA IBMUDB. 
where XXXXXXXX will be the job name provided GIFTS by the user. 


EeeinesADDED ASSEMBLY ROUTINES (LIBRSA) 
For convenience, all the assembly routines for this version 
Sewolria have been placed, as entry points, imto LIBRSA. A 


listing of LIBRSA can be found in Appendix H. 


F. IBM (CP/CMS) INSTALLATION INSTRUCTION 

iiremmscetallation Of GIFTS on the 18M involves the trans- 
ferring of the source code from tape to the CMS disk space, 
Piemeomstling of the code, its loading (linking) and execu- 
tion. This section covers the steps necessary to install 
GIFTS on the IBM system at the Naval Postgraduate School. 


Installation on other systems should vary only slightly. 
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The GIFTS source code is received from the University of 
Arizona on an unlabeled nine track tape. Accompanying the 
tape 1s a tape directory indicating the names and sizes of 
the files and the order in which they were written onto the 
tape. 

At the Naval Postgraduate School, all but one of the tape 
drives are attached to MVS (Multiple Virtual System - the batch 
Operating system). Because of this, it has proven expedient 
Moectest transfer the files to an MVS disk and then to the CMS 
disk space. Transfer from the tape to the MVS disk is accom- 
peesmeds Via the TBM OS Utility IEBGENER. A listing of the file 
me oelvo JCL (which resides on the GIFTS disk space), containing 


14 for the transfer via 


the necessary job control statements 
TEBGENER can be found in Appendix I. These job control state- 
ments will cause the first 37 files on the tape to be trans- 
mo pem@etOondisk MVSO0¢ with the respective file identifiers 
Pescetemere through S3161.FILE37. To transfer the files to 
Miemereomaisck space, it is first necessary to link to and 
access MVS004. This is accomplished by issuing the commands: 
CEmDriIG MVS. sGR -ooB RR 
AECESS:. (50 -wE . 
Siecmenmes iS done, the files can be transferred to CMS, re- 


named in accordance with the tape directory, and packed, by 


1 
tape. 


tohese fobecomerol! Statements are for an 800 bp1i ASCII 
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the use of the CMS commands listed in Appendix I. At the 
Naval Postgraduate School, these commands are contained in 
file MVSZCMS EXEC (on the GIFTS disk space) and can be exe- 
cuted by issuing the command MVS2CMS. For future updates, if 
the number, name, or order of the files to be transferred 
differ from those now listed in TAPE2MVS JCL and MVS2CMS EXEC, 
appropriate changes should be made. 

All the FORTRAN program modules and libraries, except 
BULKM and BULKS, can be compiled with the IBM FORTRAN G conm- 
pees It will be necessary, due to variations in the FORTRAN 
used, to compile BULKM and BULKS with the IBM FORTRAN H-extended 
eompiler. 

Following compiling, the program modules and libraries are 
ReemvetOr loading and execution. This, as an example, can be 
accomplished for program module BULKM, via the CMS commands: 

LOAD BULKM LIBR1 LIBR2 LIBR3 LIBR4 LIBRS LIBRSA 
crak. 
At the Naval Postgraduate School, this is accomplished by the 


use of an exec file (see Appendix H). 


Ceo CP, GS) USER INSTRUCTIONS 

The user's instructions for the IBM (CP/CMS) version vary 
pea ecitontiy trom those contained in the GIFTS User's Refer- 
ence Manual [Ref. 1]. Appendix J contains all necessary 
eaaattonal imfOrmation to use this version at the Naval Post- 


Spagwate Sscnool. 
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IV. SUMMARY AND RECOMMENDATIONS 


iiecummary, the IBM (CP/CMS) version of GIFTS developed 
1s a self-contained, portable system that will allow easy 
installation on other IBM computers with the CMS operating 
system. 

It 1s recommended that additional work be done, at the 
Naval Postgraduate School, on the Graphics Package to enable 
the use of the Tektronix 618 graphics terminals being installed 


on the IBM system. 








IBMUDB 


BULKM 


BULKS 


EDITM 


EDITS 


is 


APPENDIX A: 


DESCRyY TION OF GIFTS MODULES 


IBM DATA BASE INITIALIZATION 


ies 


A program to create the dummy data base for the 


IBM (CP/CMS) version of GIFTS. 


MODEL GENERATION AND EDITING 


An automated three dimensional plate and shell 
Medel ovemematoOr. ft 15 suitable for large contin- 
uous structures that can be easily modeled by 
Piet tioOus Generation Of points and elements. 

A three dimensional solid model generator. One 
may ask for the display of the edges, and may add 
and display selected point and element slices. 
Designed to update and correct BULKM models, 
Seateuch It can be used to generate simple models 
and ones too complex for BULKM. 

A three dimensional solid mesh editor. It may be 
used to update or correct BULKS models, or to gen- 
erate simple models and those too complex for 


BULKS. 


pcomenameer LIL, Section D, Subsection 2. 
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LOAD AND BOUNDARY CONDITION GENERATION, DISPLAY AND EDITING 


BULKF 


BULKLB 


LOADS 


Ee LB 


Suppress those freedoms which the generated model 
cannot support, thereby relieving the user of the 
necessity of suppressing all superfluous freedoms 
by hand. 

The bulk load and boundary condition generator 
designed to apply loads to models generated with 
BULKM. It may be used to apply distributed line 
and surface loads and masses, prescribed displace- 
ments along lines and surfaces, and inertial loads. 
Temperatures may also be applied to lines and 
SUgeace’s:, 

The load and boundary condition generator for 
solid models. Loads may be distributed on lines 
or surfaces. Loads and boundary conditions may 
be displayed on point slices. 

A display and edit routine intended to provide 
Peal modification Capability to loads and bound- 
ary conditions applied by BULKLB. It may also be 
used to generate simple loading on models, or 
loading on models not generated with BULKM. Tem- 
peratures may also be applied to elements. After 
DEFL has been run, the thermal and combined loads 


may be examined. 
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GENERAL PURPOSE COMPUTATIONAL AND RESULT DISPLAY MODULES 

OPTIM Band width optimization program. OPTIM may be 
called several times in a row, until the best 
node numbering scheme has been achieved. 

Ses Computation of element stiffness matrices and 


their assembly into the master stiffness matrix. 


SAVEK This program saves the newly computed stiffness 
matrix. 
PRINT Program used to print out parts of the stiffness 


Taitaiwandedrrecetory £Or specitied GIFTS models. 

DECOM Introduces kinematic boundary conditions, and 
decomposes the stiffness matrix using the Cholesky 
method. 

DEFL Computation of the deflections from the current 
loading conditions and the decomposed stiffness 
matrix. If temperatures are present, thermal 
forces will be calculated and added to the current 
applied loads before solution. 

SRESS Computation of element stresses based on current 
det lect lems . 

RESULT Result display. The program displays deflections 
and stresses. It has many options that may be 
used, at the discretion of the user, to transform 
the results for optimum comprehension. 

RES (DU This program computes the residual forces on a 


structure solved by the GIFTS solution programs. 
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THE GIFTS NATURAL VIBRATION PACKAGE 


AUTOL 


SUBS 


PaeS GIFTS 
TRANIL 


TRAN 2 


TRANS 


iE GiPiS 


BeEEeS 


RECS 


Used to generate starting loads for the subspace 
BEcPiaelometO COMpDUte Natural modes of vibration. 
Performs a single subspace iteration to determine 
the model's natural modes. It must be repeated as 
many times as necessary to obtain convergence to 


the desired extent. 


TRANSIENT RESPONSE PACKAGE 

Used to specify the time step to be used in the 
integration process and is to be run on a tran- 
Sient response model immediately after stiffness 
assembly. 

Computes the displacement matrix for time T and is 
Zum after TRAN! and DECOM. 

Maintains and plots histograms of the displace- 


ments of up to four different freedoms. 


CONSTRAINED SUBSTRUCTURING PACKAGE 

Program to define a constrained substructure's 
(COSUB) boundaries and external nodes. 

This program generates the reduced stiffness and 
loads matrices necessary for assembly of the 
'‘COSUB' in the main analysis, as well as the trans- 


formation matrices necessary for local analysis. 
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LOCAL ihis program performs local analysis of selected 


'COSUB' models from a major analysis. 


iaieoalr lS LIBRARIES 


LIBR1 

LIBR2 

LIBRS3 

LIBR4 Commonly used machine independent subroutines and 
functions. 

ile Byes Machine dependent FORTRAN subroutines and functions 


used for graphics, character manipulation and data 
base management. 
LIBRDSA Collection of CP/CMS assembler routines used by 


Pipes Of the IBM {CP/CMS) version. 
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AEE ND EB: 


SUMMARY OF CMS COMMANDS USED 


COMMANDS USED IN PROGRAM PREPARATION 

EDIT Used to invoke the VM system product editor to 
emedec Or Modity a CMS disk file. 

COR VEIL E Weedeco copy CMS disk files decordame to given 
Spcemebeaeions. Used in GIFs implementation to 


'pack' FORTRAN source code to conserve disk space. 


einai 1 Used to compile FORTRAN source code using the Gl 
Somnpl 1 en. 
FORTHX Used to compile FORTRAN source code using the 


H-extended compiler. 
nit B Used to generate and modify TEXT libraries. 
LOAD Used to bring TEXT files into storage for 
excell on . 
START Used to begin execution of programs previously 


loaded into storage. 


COMMANDS USED IN GIFTS FOR FILE MANIPULATION 

ERASE Used to delete CMS disk files. 

Fee DEF Used to relate logical unit numbers, devices 
and files. 


FINIS Used to close files in the CMS environment. 
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PRINT] 


RENAME 


SLATE 


Used to 


jong stg nelsaes 


Used to 


Used to 


Spotl meaecpcetuedseMoe tile to the virtual 


change the names of CMS files. 


Mebiryewmnle wextstenee Of CMS disk files. 
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APP eNnpix C: 


THE UNIFIED DATA BASE FOR THE IBM 


SEQUENTIAL DATA BASE FILES 


FILE LOGICAL 
TYPE UNIT NUMBER 
CFR 27 

DGT 23 

DYN 28 

HST 25 

SAV 24 


SPEC oe SEOUENTEAL DATA BASE FILES 


Fogel Pi OR LOGICAL 
DOE LER UNIT NUMBER 
SRC ZO 

GlRiss INE ol 

CtaiSo EST CZ 

Geiss ESX Zo 


SEL 





NUMBER 
OF 


PNDEGERS 


4 
4 


LS 
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THE RANDOM ACCESS 


REALS 
180 
324 


180 


Ld 


BLOCKING 


PAGEOR 


1 
ul 
1 
10 


10 


10 


me 


10 
10 


a2 


eas 

IBM 
of 
WORDS 
184 
Syke 
184 
60 
184 
80 


74 


400 


TBM 
DP 
WORDS 
364 
ony 


364 


LOGReAL 
UNT T 
NUMBER 
51 
56 
52 
64 
BO 
65 
fas 
Ti] 
78 
79 
98 
80 
81 
oy 
66 
67 
54 
68 
76 
69 
82 


Te 





NUMBER 
OF 


INTEGERS 


4 
Z 
4 
2 


1 


E29 


NUMBER 
OF 
REALS 
324 

0 

0 


Wy 
BY 


324 


BLOCKING 
FACTOR 


1 
40 
40 
40 
40 
1 

10 
10 
10 
10 


10 
10 


IBM 
SNe 
WORDS 
328 
80 


160 


105 


IBM 
DP 
WORDS 
652 
80 


160 


LOGICAL 
UNIT 
NUMBER 
98 
us 
So 
74 
84 
g7 
85 
86 
87 
70 
88 
89 
90 
all 
a2 
59 
60 
fat 
SS 
61 
62 
94 





FILE 
1ae ie 


TLD 
TMP 
UGC 


NUMBER 


OF 
PNGEGERS 


0 
0 


BLOCKING 
FACTOR 


bs) 
o 


24 


IBM 
SP 


WORDS 


420 
140 
184 


IBM 
DP 
WORDS 
840 
280 


364 


LOGICAL 
UNIT 


NUMBER 


S18 
96 
39 





LISTING OF NEW GIFTS PROGRAM MODULE IBMUDB 
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ANMODE 


CURSOR * 


DINIT 


DRAW 


POS) Oa 


NEN Dt XE 


THE IBM (CP/CMS} GRAPHICS PACKAGE SUBROUTINES 


(* indicates a modified or added subroutine) 


Places the Tektronix 4000 series graphics terminal 
into the alphanumeric mode. 

Turns on the graphics cursor, and reads back the 

x and y coordinates of the cursor position when a 
character is struck on the key board. It also 
returns the value of the character struck. This 
subroutine calls assembly routine RDADE for the 
input operation and TOEBCD for conversion of the 
Stianacrtem to ERCDIG: 

This subroutine clears the terminal screen and 
Poste i1ons the graphics cursor at (0,0) in the 
viewing area. 

Draws a visible line from the current beam posi- 
tion to the absolute coordinates provided. 

This subroutine dumps the graphics output array to 
the terminal and insures that the last character 
in the array is US, which places the terminal into 
alphanumeric mode preventing the interpretation of 
interline characters, sent by the IBM system, as 
graphics characters. Assembly routine WRTADE is 


used to dump the buffer. 


Sys 





Nae P This function linearly interpolates point coor- 
dinates for graphics output. 

LINA This subroutine will draw an invisible or visible 
ime, was direered, from the current graphics cursor 
position to the absolute coordinates provided. 

ine E This subroutine will draw an invisible or visible 
line, as directed, from the current graphics cursor 
posomeuen to the absolute coordinates provided. 

MOVE Subroutine that invisibly moves the terminal's 
graphics cursor to the absolute screen coordinates 
provided. 

OERFSET This subroutine switches the Graphics Package 
between the 800 x 800 main viewing area and the 
800 x 223 offset viewing area. 

Piemn * Ths “subroutine computes, and outputs, the graphic 
control characters necessary to draw a line from 
the current beam position to the absolute screen 
coordinates provided. It will send the minimum 
number of characters needed, from one to four. If 
the output array does not have room for at least 
four characters, it is flushed to the terminal. 
Following the flush, the terminal is placed back 
into graphics mode and the cursor moved back to 


its position prior to the flush. 


og) 








PUTCHR 


eet PT 


CABGE, * 


TRELL 
TERASE 
meEXT * 


THOME 


SENET T * 


This subroutine adds characters to the output 
array. If number of characters in the array 
reaches NCHMAX, the array is flushed. 

This subroutine invisibly positions the graphics 
beam to the absolute screen coordinates provided. 
This subroutine reads one point from the digit- 
izing tablet. It is currently inactive in this 
version. 

Rings the bell on the terminal. 

Erases the terminal screen. 

This subroutine outputs characters from a provided 
array to the screen, starting at the current alpha- 
numeric cursor position. The text will be clipped 
emenre eoages Of the Screen. Assembly routine 
TOADE is used to unpack the text and convert it 

to ADE. 

This subroutine moves the graphics cursor to the 
home position, and switches the terminal to alpha- 
numeric mode. 

This subroutine initializes the Graphics Package, 
clears the terminal screen, and positions the 
Geaemres Cursor at (0,0) in the main viewing area. 


NCHMAX is set equal to 79 here. 
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TWAIT 


WRTADE * 


RDADE.* 


ROADE * 


RCEBCD * 


This subroutine causesthe program to wait for a 
given number of seconds. This is accomplished in 
this version by the output of a string of non- 
interfering characters to the terminal. 

This assembly routine converts an array of ADE 
characters to EBCDIC and sends them to the ter- 
minal with the interline characters suppressed. 
Vivivle 1S an eltry point in LIBRSA. 

This assembly routine reads characters from the 
EomEIMal, Converts them from EBEDIC to ADE, and 
widees them iIntO avepecified array. RDADE is an 
entry point in LIBRSA. 

This assembly routine converts a string of con- 
secutive EBCDIC character into ADE characters and 
puts them into consecutive elements (right justi- 
Emoajleot a tull word array. 8CADE is an entry 
Dpemmer in LIBKSA. 

This assembly routine converts a string of con- 
secutive ADE character into EBCDIC characters and 
BUtsS them into consecutive elements (right jJusti- 
Epeaye Ot a tull word array. YTCEBCD is an entry 


perme sin LIBRSA. 
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ele) el 3D )1ee Gale 2 


THE IBM (CP/CMS) CHARACTER MANIPULATION PACKAGE SUBROUTINES 
(* indicates modified or added subroutines) 


DATEP 


EN [ 


FREAD 


eA DZ 


INCCHR 


INCHAR 


NGEEDR Z 


* 


This 


subroutine calls IBM Operating System function 


DATIME for the date and converts it into 3A4 format. 


as 


subroutine encodes an integer into a floating 


point variable, left-justified and blank filled, 


and returns the floating point variable and the 


Humeer Of characters it contains. 


This 
with 
This 
with 


This 


subroutine controls interactive I/O operations 
the user via the terminal. 

subroutine controls interactive I/O operations 
the user via the terminal or digitizing tablet. 


subroutine takes a single character, left- 


justified and blank filled, and increments it by 


one. 


Ens 


logical function reads a line from the user's 


terminal or steering file as directed by subroutine 


Pee). 


Tas 


Heogteal tunetton, reads a lime from thie users 


terminal, steering file, or digitizing tablet as 


directed by subroutine FREAD2. 


GZ 





INCNM 


INITHVL 


I NMENU 


NUMCHR 


PAKAL 


PERCNT 


SECOND 


pCO Uey S 


* 


* 


This subroutine takes an alphanumeric eight char- 
acter name and increments the numeric characters 
in the name by a specified amount. Calls assembly 
POMtee as 1 1. 

This subroutine initializes the hardware value 
list for the computer hardware being used. 

This subroutine reads an input line from the 
tablet menu. 

This subroutine counts the number of non-blank 
characters in a single alphanumeric name. 

This subroutine packs alphanumerical information 
into a single word in A4 format. Makes a call to 
assembly routine ENCODE for this. 

This subroutine encodes an integer followed by a 
o | Soe ntomaailoataneepoantevarilable and «then 
passes it to subroutine TEXT of the Graphics Pack- 
age for inclusion in a plot. A call is made to 
assembly routines DECODE and ENCODE to aid in the 
process. 

This subroutine returns the elapsed CPU time in 
seconds. CPU time is obtained via a call to the 
System routine GETIME. 

iim~ecmsubroutine getssthe cumrent time of day from 
the operating system, via a call to DATIME, and 


menpermnats Lt to SA4 format. 





UPKAL 


DECODE 


ENCODE 


DECOD 


BTD 


This subroutine unpacks text in A4 format into a 
four word array with one character per word, right 
justified and zero (null) filled. UPKAL calls 
assembly routine DECOD for this. 

This added assembly routine unpacks a string of 
characters (4 per word) into a four word array 
with each word containing one left justified 
EMaracter. DECODE is am entry point in LIBRSA. 
This added assembly routine packs a string of 
Characters contained in single character words, 
Mm€O a samegle word. ENCODE is an e€mtry point in 
LIBRSA. 

This added assembly routine unpacks the characters 
(maximum of 4) contained in a single word into 
four single character words, with the characters 
right justified and the word padded with zeroes 
Cmubes) =  DECOD 15 an entry point in LIBRSA. 

This added assembly routine transforms an integer 
into a string of alphanumeric characters. The 
Semingeis right JuUStIfled Wwithetne rest of the 
string filled with a character provided by the 
user. It additionally returns the number of 
Gilamacters in the string. BID is an entry point 


i LE BROA . 
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ENF * This assembly routine replaces a FORTRAN routine. 


It translates an array in 3A4 format into the 
PiGatnlnige point fOrmat UPELO.35. ENF is an entry 


point in LIBRSA. 
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APPENDIX G: 


THE IBM (CP/CMS DATA BASE MANAGEMENT PACKAGE SUBROUTINES 


GAOSEr * 


GECSiLP * 


heeIN * 


Dili * 


PNeriG * 


(* indicates a modified or added subroutine) 


This subroutine closes an active file in the CMS 
Sivweanonment vila the €MS command FINIS. In addi- 
tion, if the file being closed is GIFTS5 ESX, this 
subroutine calls for the deletion of GIFTSS EST. 
This subroutine spools to the line printer, if 
directed by the user, the line printer file via 
the CMS command PRINT. 

This subroutine associates direct access file 
identifiers with their respective logical unit 
numbers via the CMS command FILEDEF. It will also 
zero, or expand, a direct access UDB file as 
darected . 

This subroutine makes direct access UDB files into 
'dummy' files and deletes sequential UDB files via 
the CMS command ERASE. 

This routine initializes the logical unit numbers 
for the direct access UDB files, defines all 
direct access UDB files, turns on the IBM CPU tim- 
micamidaed Call to routine SEIIME, and the current 
GIFTS version number. Additionally, if file 


GIFTSS ESX exists, it 1s renamed GIFTSS EST. 


66 





INRA 


OPENIF * 


OPENLP * 


OPENOF * 


OUTRA 


PRESNT * 


This subroutine performs all input from the direct 
access UDB files. 

This subroutine opens a specified sequential file 
for input by associating the file identifier with 
its respective logical unit number via the CMS 
CONG LeDEF. If the file is GIFTSS INF or 
CUETSo"ESlwanid= does met exlst on @the user's disk 
Space, it is specified as being on the GIFTS 
Systemes disk space. 

Tiisesubreutine sets the line printer file logical 
unit number and associates the file identifier, 
provided by the user, with this logical unit 
number via the CMS command FILEDEF. 

This subroutine opens a specified sequential file 
for output by associating the file identifier 

With its respective logical unit number via the 
Gioseecmmand FILEDEF. if the file to be opened is 
ime | smile Girios ESX 1s opened in its place. 
ties sulbaoutime performs all output to the direct 
access UDB files. 

This logical function checks for the presence of 
a UDB file. If the file is sequential and not 
Gaememe, PRESNT 1s sé€teequal to false, and if it 
imemesent, PREGNI is set equal to true. If the 


file is direct access, present onthe user's disk 
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RENAME * 


MANAGE * 


SEBRSN * 
PResir 


FRTCMX * 


Siaceewwand a ‘“aummny file, PRESNIT 1s set equal to 
false. And if on the user's disk space and not a 
‘uomye file, PRESND@is set equal to true. If the 
file is direct access and is not present on the 
user's disk space, program module execution is 
terminated. 

This subroutine uses the CMS command RENAME to 
effect the exchange of names between two UDB files. 
Mic@eGemaming Oceurs, 1t also sets a switch to 
indicate to subroutine MANAGE that the renaming 
Maceeeaicen: place . 

Dhimsestbroutine will assSien a logical unit number, 
Bueoeeviuded wath the WOR file type, or the UDB 
lcm Dew li provided with the Logical wumrit 
number. If a file has been renamed, MANAGE will 
molaeeuthe Old logical unit number with the new 
fee ety. 

Ee@mermis version, SLIASN is a dummy routine. 

This subroutine was moved from LIBRI1 for this 
version and 1s a dummy routine. 

This assembly routine allows CMS commands to be 
invoked from the executing program module. 


FRTICMX is an entry point in LIBRDSA. 
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CONVRT * An assembly routine used to convert a four byte 
ieee nn tOctealeunit MUuMber into an e€ight byte 
real number. It is used in passing information 
em the deyical wait mumber to FRIGMX for the exe- 
cution of CMS commands requiring the number. 


COR 1s an emtry point in LIBRSA. 
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RePeENOLN J: 


ee toe ore Von SUCTIONS 330k) THESIBM (CP/CMS) VERSION 


TERMINAL USAGE 


GIFTS may be executed on any terminal, but if the terminal 


is not a Tektronix 4000 series graphics terminal, plot com- 
mands must not be used as they will be meaningless and may 
cause termination of execution. If using a non-graphics 
terminal, the user will have only the alphanumeric output 


meron Gletseavarlable. 


Cie Ahi loeb ROCEDURES 
The analysis procedures described in GIFTS User's Refer- 
ence Manual are used, but the module IBMUDB must first be 
executed to create the data base for the analysis. Follow- 
ing the execution of IBMUDB, the user will have 48 (small) 
PePSesOneence «© disk, Upon the completion of an analysis, 
PeEVcmEiemm@corOnstDility of the user to erase these files, 


as needed, from his disk space. 


STORAGE REQUIREMENTS 


(emcticumemoumrticient core for an analysis, prior to 


executing a module, issue the command: 


Cee DE Nem oLORAGE Lh 


OZ 





which will place you in the CP operating environment. To 


return to the CMS environment, issue the command: 


Chase aes. 


PeeenG [O THES GIPiS ’SYSTEM’S DISK SPACE 
In order to perform a GIFTS analysis, the GIFTS system's 

disk space must be linked to and accessed as the user's 'C'! 
disk. This can be accomplished by issuing the command (user 
input in lower case, computer output in upper case): 

Sommineomoin iI! 199 rr 

ENTER READ PASSWORD: 

ieee s 

Ree mode, 0.01 20:25:17 

aceess 199 ¢ 

© 199) R/O 

Reed 0. 02° 20:25:25 
Once linked and accessed as the user's ‘'C' disk, the GIFTS 


Syoeeme is ready for use. 


ENTERING A BLANK LINE IN GIFTS 

At times, during execution of the GIFTS modules, it will 
be necessary to issue a blank line, or GIFTS may even prompt 
the user to enter a carriage return. It is of the utmost 
Mimomeatecmimmbarh cases, that a space, plus a Carriage 
return be entered. If a carriage return alone is entered, 


program module execution will be terminated. 





EXECUTING A GIFTS PROGRAM MODULE 


To execute a GIFTS program module, issue the command: 
RUN XXXXXX 


where XXXXXX is the name of the desired module. This will 
cause the desired module and necessary libraries to be loaded 
and executed. The user is reminded that module IBMUDB must be 


executed at the start of each analysis. 
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